!MAIN SUBROUTINE
    dimension a(120000000),i(100000000)
    real*8 a
    integer START_SP_2D_FROM,START_SP_3D_FROM

    call initCommon(a,i,i_time,START_SP_2D_FROM,START_SP_3D_FROM)

    !Solving SP task
    call mainSP(a,i,i_time,START_SP_2D_FROM,START_SP_3D_FROM)

    !Solving VP task
    call mainVP(a,i,i_time)

    write(*,*) '    Press any key to continue...'
    read(*,*)
end
!*************************************************************************
!*************************************************************************
!*************************************************************************